gusucode.com > 耐品图片管理系统 标准版A > 耐品图片管理系统 标准版A/Person.asp

    <!--#include file="Head.asp"-->
<!--#include file="Function.asp"-->
<%
'===============================================================
' 著作权号：中国国家版权局著作权登记号2004SR07385
' 版权所有：深圳市耐品科技开发有限公司 www.naipin.com
' 联系电话：0755-26611119　81234844　81234845
' 联系手机：13316911914
' 联系邮箱：naipin@naipin.com
'===============================================================

Dim rs,sql,CurrentPage,Show,strFileName,Photoer,Person
Show = Netout.CheckStr(Request.QueryString("Show"),"S")
CurrentPage = Cint(Netout.CheckStr(Request.QueryString("Page"),1))
strFileName="Person.asp?Show="&Show

sql="select titleID,titleName,TitleUser,iClick,iCount from NT_title where iCount>0 and exists(select [ID] from Nt_ImgBook where titleID=Nt_title.titleID and Passed=1"&Netout.GetHideSql("")&") "
Photoer=Netout.ReplaceBadChar(trim(request.QueryString("Photoer")))
if Photoer<>"" then 
	sql=sql&" and TitleUser='"&Photoer&"'"
	strFileName=strFileName&"&Photoer="&Photoer
end if
sql=sql&" order by UpdateTime desc"
IF Show="S" Then 
	Netout.MaxPerPage=12:ColSpan=3
Else 
	Netout.MaxPerPage=25:ColSpan=1
End IF

With Netout
	.Load("Comm")
	.TopPage	 = True
	.BottomPage	 = True
	.SqlRecord	 = sql
	.InitText	 = .theCode(0)
	.strFileName = strFileName&"&"

	Person = True
	MyHtml = Replace(Split(Template.Html(0),"||")(0),"{?left_beg}","")
	MyHtml = Replace(Replace(MyHtml,"{?left_end}",""),"{?LeftInfo}",UserInfo())
	MyHtml = Replace(MyHtml,"{?RightInfo}",Replace(Template.Html(3),"{?ShowResult}",.ShowRecord(CurrentPage)))
	MyHtml = Replace(.TempHtml,"{?CurrentScript}",MyHtml)
	Response.Write MyHtml
	Response.End()
End With	
set Template = Nothing
set Netout = Nothing

Function UserInfo()
	dim rsUser,cRs,rRs,gRs,cSql,PicCount,RecCount,GodCount,Html,UserPic
	Set rsUser = Conn.Execute("select UserEmail,UserPic,UserDesc from NT_User where UserName='"&Photoer&"'")
	UserPic = rsUser("UserPic")
	If UserPic = "" Or isNull(UserPic) Then
		UserPic = Split("UploadFile/UserPic/Default.gif",",")
		PreWidth = 110
		If Netout.UserName = Photoer Then
			NoText = "<a href=ChgInfo.asp class=more>"&Netout.theCode(12)&"</a>"
		Else	
			NoText = ""
		End If
	Else
		UserPic = Split(UserPic,","):MaxWidth = 300:MaxHeight = 300
		iWidth = Cint(UserPic(1)):iHeight = Cint(UserPic(2))
		m=iWidth/MaxWidth:n=iHeight/MaxHeight
		if iWidth>MaxWidth or iHeight>MaxHeight then
			if m>=n then PreWidth=MaxWidth else PreWidth=iWidth*MaxHeight/iHeight
		Else
			PreWidth=iWidth
		End If
		NoText = ""
	End If
	UserEmail = rsUser("UserEmail"):UserDesc = rsUser("UserDesc")
	if UserDesc = "" Or isNull(UserDesc) then UserDesc = ""
	if UserEmail = "" Or isNull(UserEmail) then UserEmail = ""
	Set rsUser = Nothing
	Set cRs = Conn.Execute("select count(ID) from NT_imgbook where titleID in (select titleId from Nt_title where TitleUser='"&Photoer&"')"&Netout.GetHideSql("")&"")
	Set rRs = Conn.Execute("select count(ID) from NT_imgbook where Recomm=1"&Netout.GetHideSql("")&" And titleID in (select titleId from Nt_title where TitleUser='"&Photoer&"')")
	Set gRs = Conn.Execute("select count(ID) from NT_ImgBook as a,NT_Score as b where b.ImageId=a.ID"&Netout.GetHideSql("a.")&" and a.titleID in(select titleId from Nt_title where TitleUser='"&Photoer&"') and b.Score>="&Config.Settings(15)&" and (b.Score/b.Count)>="&Config.Settings(16))
	PicCount = Cint(Netout.CheckStr(cRs(0),0))
	RecCount = Cint(Netout.CheckStr(rRs(0),0))
	GodCount = Cint(Netout.CheckStr(gRs(0),0))
	Set cRs = Nothing
	Set rRs = Nothing
	Set gRs = Nothing
	Html = Replace(Replace(Split(Template.Html(10),"||")(1),"{?UserPic(0)}",UserPic(0)),"{?PreWidth}",PreWidth)
	Html = Replace(Replace(Replace(Html,"{?UserEmail}",UserEmail),"{?Desc}",UserDesc),"{?NoText}",NoText)
	Html = Replace(Replace(Replace(Html,"{?PicCount}",PicCount),"{?RecCount}",RecCount),"{?GodCount}",GodCount)
	Html = Replace(Replace(Netout.CommHtml(1),"{?Title}",Photoer&Netout.theCode(10)),"{?Content}",Html)
	UserInfo = Replace(Split(Template.Html(10),"||")(0),"{?UserInfo}",Html)
End Function
%>